home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 050 / madtrb30.arc / SERTST.PAS < prev    next >
Pascal/Delphi Source File  |  1985-05-17  |  1KB  |  49 lines
  1.  
  2. {$U+,ISerial.pas}
  3. {Obviously you have to have SERIAL.PAS on disk.  See file SERIAL.PAS in this
  4.  XA    }
  5.  
  6.   Var
  7.     Port,Baud,StopBits,DataBits,Par: Integer;
  8.     Message: String[80];
  9.  
  10.   Type
  11.     String19=String[19];
  12.  
  13.  
  14.   Function Binary(V: Integer): String19;
  15.  
  16.     Var
  17.       I: Integer;
  18.       B: Array [0..3] Of String[4];
  19.  
  20.     Begin
  21.       For I:=0 To 15 Do
  22.         If (V And (1 Shl (15-I)))<>0 Then B[I Div 4][(I Mod 4)+1]:='1'
  23.         Else B[I Div 4][(I Mod 4)+1]:='0';
  24.       For I:=0 To 3 Do B[I][0]:=Chr(4);
  25.       Binary:=B[0]+' '+B[1]+' '+B[2]+' '+B[3];
  26.     End;
  27.  
  28.  
  29.   Begin
  30.     Write('Enter port number:                    ');
  31.     ReadLn(Port);
  32.     AssignUsr(Port);
  33.     Write('Enter baud rate:                      ');
  34.     ReadLn(Baud);
  35.     Write('Enter stop bits:                      ');
  36.     ReadLn(StopBits);
  37.     Write('Enter data bits:                      ');
  38.     ReadLn(DataBits);
  39.     Write('Enter parity (0=none, 1=even, 2=odd): ');
  40.     ReadLn(Par);
  41.     Write('Enter message to print:               ');
  42.     ReadLn(Message);
  43.     SetSerial(1,Baud,StopBits,DataBits,__ParityType(Par));
  44.     WriteLn(USR,Message);
  45.     WriteLn('OutError[',Port,']: ',Binary(OutError[Port]));
  46.     WriteLn('SerialStatus(',Port,'): ',Binary(SerialStatus(Port)));
  47.   End.
  48.  
  49.